Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/cafe/ultslots.dir/00225.ls

Text File | 1996-10-06 | 652 b | 23 lines

on mouseDown
  set num to the memberNum of sprite 5
  set QTname to the name of member num
  set the sound of member QTname to 0
  set loopstart to random(1470) / 2
  set loopend to loopstart + random(700)
  set the movieTime of sprite 37 to loopstart
  set the movieRate of sprite 37 to 1
  if the movieTime of sprite 37 > loopend then
    set loopend to loopend / 2
    set the movieTime of sprite 37 to loopstart
  end if
  updateStage()
end

on mouseUp
  set the movieRate of sprite 37 to 0
  set num to the memberNum of sprite 5
  set QTname to the name of member num
  set the sound of member QTname to 1
  set the movieRate of sprite 5 to 1
end